PEGASUS BASIC CHARACTER CREATOR (requires Monitor 2 

or later version) 

The programmable character RAX oplior permits the user to 
define and use an alternative character set to that stored 
in the character TiOM. This BASIC prcgram allows the iser 
to examine the shape of any programmable character and to 
mortify end store it. 

l\'-en the machine is powered up, the programmable character 
RAM will contain random bits. When in BASIC, CTRL G will 
turn on these characters; CTRL C '-"11 turn -hem off. Try 
this after power ip to see how the random patterns appear. 

There are a total o£ 12C characters (with ASQIX nurbers frop;, 
to 127) . Each character is 3 b_ts viae and 16 fcytes high. 
The CHARACTER SHE.VBQH program will display a yricl 8 wide, 
and 16 lines high, which you can Till with white Mocks, or 
blanks. 



Using th e program 

1) Snter the progran from the listirg and save it on 
cassette tape. Mote lines 230 ar.d 310 with irverse 
blanks. 

2) Type REN The screen will clear and eHAlACTRR NUMBER 

wilt appear requesting an ASCiT nun-her 

3) Type in a number frcm to 12 7 {press 'MTIIKK) 

4) WAIT will appear as the present 5hape ot the character 
i s retrieved Iron RAM 

5) X'he screen will display th2 ASCII character number, -he 
ROM form of the character in inverse video, ard an 8 by 
16 crid of C 3 brackets showing the present prc«ra.Tintable 
character sha;je. 

6) If you wish to erase the present shape, press CTRL and 
DELETE Simultaneously and the grid pattern will clear. 

7) The cursor will appear in the top left aand block. 
Use these keys to move the cursor. 

S " leff - X - down D 7 ri ^ fc 

when the cursor is placed at a L ] you wish tc fill, press 

-he ? key. To clear the [ 3 press the j key (do not 

SHIFT) 

3y moving the cursor to each bracket block you want filled 

you can create your own pattern. 

8) When that character is defined, press R3TUEN, 

WAIT will briefly appear as the row character is stored 
into graphics RAH. , 

9} HEXT? will appear requesting ancther ASCII number. 
Use 993 to exit the program 

10) These new characters will remain in the graphics RAH as 
long as power is supplied. To save your characters lor 
later use, use the CHAR SAlT./LOAD urogram. 
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100 REM CHARfHTFR CREATOR 

110 516: CLS: PRINT 10,53, 

120 INPUT "CHARACTER NJMBER " N:TF NM27 NlfcM END 

130 CLSs LINES 1 sPRINTIO, 23 , "CHAP "-N 

140 PRINT C©,33„CHR\<I) . " ,, ,,RfttltN> 9 " ",OlRt?>, 

J50 C05UB 1000 

200 PRINT CMS < 25) ,Ct«MN> ,, iREH SHOW CHA* 

210 FOR Y=0 TO 15: Q=rL2K <*l'lirtO+Y> s W=123 

22ti FOR X-0 TO 14 STEP2 

230 B=Q-W:IF B>=0 THEN PRINT 1 14 'X , YJ .".'"".: Q=B 

240 W=U/2:NEXT XsNEXT V 

250 PRINTtO.CJ," "«! LINES 16 , 

760 PR[NTE.l4v.03, 

3O0 M=lNI-iV: TF M=0 THEN 300: Rill' FORM CHAR 

310 IF M=46 THEN PRINT " <■ v/ " , CHR <19) „ CH* ( 1 V) , JG0T0300 

320 IP M=44 THEN PRINT " I I " - Ulfi (19) , CH3 ( 1?) . :bOTU-'C'0 

330 IF K> Li9 THEN PRINT CHR <2^> , :1>1 Ml IKi •■;» 

340 IF M=6? THEN PRINT CHR 151 , : GO tlT30(" 

350 IF M=6H THEN IF PEEK (SBDF9X27 THEN P-.RI.Nl CHR<4> , CHR 14) . = GO 10300 

360 IF M=83 THEN 3P PFEK C4BDF9) >15 THEM I kl NT CHR (19> , CHR 1 17) , i G0TO30O 

370 IF N=13 THEN 400 

380 IF M=3l THEN SDSUB 1O10 

390 S0TQ300 

400 PRrNTIO.03, "WAIT", :LlNEii 1 : REM STORE CHAR 

410 P.OR Y*0 10 15:B=0:W=12£I 

420 FOR X=0 TO 14 STEP2 

430 U-PEEK(SEEOE+X*V*. ".."?): IF V=32 THEN B=B»W 

440 I* W/ 2: NEXT X; 8 <Y>=B: NEXT Y 

450 PRINT CHF<27) ,CHR(N) , 

<J&0 FOR Y=0 TO 15iP^INT C111V (,f ( Y) ) , iNEXT Y 

470 PRINT 10,03," ",:LINES 1 C J TR1NTC0, 83 , 

430 INPUT "NEXT" NsIF N>127 THEN END 

490 GOTO ISO 

500 END 

1000 PRINT CO. 03. "WAIT", :REM GRIE 

1010 FOR Y=0 TO 15 

1020 PRINTr)0,Y3,V-M,Ct4, v 3,' C3C3[3L3L3rar3t:". 

1030 NEXT Y:FRINT L11.»"'l. : RETURN 



LIKE 230 - afr.er rhe first " press t:'iO invccse vicCo key (fan 
louer eight), press space bar twice, press inverse Mey again, - ann" 
resume with the second " 

LIKL 310 - do the sane as abovs 
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iinggr-stians 

Defirs NUMBER 32 as blan!< - this is the same as a space 
in the character ROM. D_-fi.no cny other character (s) . To 
see how they look in normal size, type CVKI. g to change to 
programmable characters, then type the key for the new 
character. 

Return -o aoK characters with ctkL c 

Press RETURN 

ERR 4 will appear. This incy ha ignored 

To display ASCII characters to 31, the RAWIODE key 
(secend blank l:ey frran righr at lower right ) should be 

pressed. 

Then - 

CTRL A vill display ASCII 1 

CTRL li will display ASCII 2 

etc. 
Press RAWMO&Pl again to return to normal keyboard func-ions. 

Progi:arr. Coraients 

LIMES FUHCTIOM 

110 - 140 - input ASCII number for = character 

- print the .-lumber, and display in inverse video 
the present BOM character shape if in norm&l 
characters, or Lhe RAM character shape if in 
programmable graphics 

200 - CHR(251 prepares to read the graphics RAM 

- CHR(N) specifics the character to be read 

210 — the 16 bytes ~or a character are placed into 

RAM starting at S BBAG 

220 - 240 - each byte is converted into a bit pattern, 
printing a white block if ^he bit is a one. 
'.'he display is reduced to 1 line for increased 
computation speed and then returned to 16 lines 

300 - 390 "NKEY returns a aerc if no key is pressed. Right 

are recognised. 

key fill with white block 
, key fill with Z 3 
X key move a own 
E key move up 
D key move right 
S key move left 
return store character 
CTKL CL'L&rE redisplay empty yrie" 



commands 


H 


= 


46 


K 


= 


44 


M 


= 


88 


M 


= 


69 


M 


= 


66 


« 


= 


83 


M 


- 


13 


M 


= 


31 
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I INF 5 FUNC TION 

410 - 440 - converts the character pattern tc 16 by-.es ana" 
stores them in the <f array 

450 - CER{27) prepares to write to the graphics ram 

- flHR(K) specifics the character to be written 

4(>0 - the 16 bytes arc written to granules ram 

4eo - the next ASCII number is requested 

1000 - 103C - a grid of L J 8 wide by 16 bicjii is displayed 



